home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / .wais / Solaris_2 / Carp.pm < prev    next >
Text File  |  1995-12-11  |  858b  |  38 lines
  1. package Carp;
  2.  
  3. # This package implements handy routines for modules that wish to throw
  4. # exceptions outside of the current package.
  5.  
  6. require Exporter;
  7. @ISA = Exporter;
  8. @EXPORT = qw(confess croak carp);
  9.  
  10. sub longmess {
  11.     my $error = shift;
  12.     my $mess = "";
  13.     my $i = 2;
  14.     my ($pack,$file,$line,$sub);
  15.     while (($pack,$file,$line,$sub) = caller($i++)) {
  16.     $mess .= "\t$sub " if $error eq "called";
  17.     $mess .= "$error at $file line $line\n";
  18.     $error = "called";
  19.     }
  20.     $mess || $error;
  21. }
  22.  
  23. sub shortmess {
  24.     my $error = shift;
  25.     my ($curpack) = caller(1);
  26.     my $i = 2;
  27.     my ($pack,$file,$line,$sub);
  28.     while (($pack,$file,$line,$sub) = caller($i++)) {
  29.     return "$error at $file line $line\n" if $pack ne $curpack;
  30.     }
  31.     longmess $error;
  32. }
  33.  
  34. sub confess { die longmess @_; }
  35. sub croak { die shortmess @_; }
  36. sub carp { warn shortmess @_; }
  37.  
  38.